home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
gfx
/
edit
/
AmiCAD_2.07.lha
/
AmiCAD
/
ARexx
/
Startup.AmiCAD
< prev
next >
Wrap
Text File
|
1999-04-13
|
277b
|
4 lines
/* Macros définies lors du lancement de AmiCAD */
'DEF BOXR(X,Y,Z,W,R)=M__=DRAWMODE(-1):GROUP(ARC(X+R,Y+R,R,R,-90,0),DRAW(X+R,Y,Z-R,Y),ARC(Z-R,Y+R,R,R,0,90),DRAW(Z,Y+R,Z,W-R),ARC(Z-R,W-R,R,R,90,180),DRAW(Z-R,W,X+R,W),ARC(X+R,W-R,R,R,180,270),DRAW(X,Y+R,X,W-R)):DRAWMODE(M__)'